# name : survminer ggsurvplot_facet
# key: ggsurvplot_facet
# contributor: Shuguang Sun
# --
require(survminer)
fit <- survfit(Surv(AVAL, EVNT) ~ ARMCD1$0, data=${1:data})
ggsurvplot_facet(
  fit = fit,
  data = as.data.frame($1),
  facet.by = "STRATM1",
  conf.int = TRUE,
  pval = TRUE,
  break.time.by = 1,
  title = "KM Curv in ITT Population",
  xlab = "Month"
)
